(COMMENT BPS 48000. )
(ALLOC '(LIST 40000 40000 NIL))
(PROGN

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(FASLOAD DEMON FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR XFA)
(FASLOAD GETMID)
(FASLOAD FASLAP XFA)
(FASLOAD EREAD)
(FASLOAD DIRECT)
(FASLOAD STRING)
(FASLOAD NCOREQ)
(FASLOAD STACK)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(FASLOAD LOADED)
;(SETSYNTAX 44. 164160. 44.)		;Comma
'DONE)